home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / SHELLS / SZ2 / GDESKTOP.INT < prev    next >
Text File  |  1992-08-31  |  2KB  |  41 lines
  1.    {*******************************************************************
  2.  
  3.    GDESKTOP.INT
  4.  
  5.    *******************************************************************}
  6. CONST
  7.    DesktopName               : PathStr = 'DESKTOP.DSK' ;
  8.    {|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
  9.    LOAD/STORE
  10.    |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||}
  11. procedure SaveHistory        ( VAR S : TStream ) ;
  12. procedure LoadHistory        ( VAR S : TStream ) ;
  13. procedure SavePalette        ( VAR S : TStream ) ;
  14. procedure LoadPalette        ( VAR S : TStream ) ;
  15. procedure DesktopWriteViews  ( VAR S : TStream ) ;
  16. procedure DesktopReadViews   ( VAR S : TStream ) ;
  17. procedure SaveDesktopTo      ( FileName : PathStr ; Description : string ) ;
  18. procedure LoadDesktopFrom    ( FileName : PathStr ) ;
  19.    {|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
  20.    EVENT
  21.    |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||}
  22. procedure CommandAll         ( Command : word ) ;
  23. procedure CloseAll ;
  24. procedure ShowAll ;
  25. procedure HideAll ;
  26. procedure ForceEvent         ( What , Command : word ) ;
  27. function IsZoomed            ( P : PView ) : boolean ;
  28.    {|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
  29.    UTILITY
  30.    |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||}
  31. function Tileable            ( P : PView ) : boolean ;
  32. function Visible             ( P : PView ) : boolean ;
  33. function Selectable          ( P : PView ) : boolean ;
  34. function Active              ( P : PView ) : boolean ;
  35. function Zoomable            ( P : PView ) : boolean ;
  36. function ExistActive         : boolean ;
  37. function CountSelectable     : byte ;
  38. function CountTileable       : byte ;
  39. procedure GetTitleList       ( AList : PCollection ) ;
  40. procedure SelectNum          ( AFocus : integer ) ;
  41.